home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / tex / tgrind.lha / TGrind / tgrind.sty < prev    next >
Text File  |  1993-01-04  |  3KB  |  89 lines
  1. % LaTeX tgrind environment
  2. %
  3. % $Header: tgrind.sty,v 1.3 88/08/14 17:43:54 van Exp $
  4. %
  5. % 
  6.  
  7. \newif\ifcomment\newif\ifstring
  8. \newbox\linesofar
  9. \newdimen\TBwid
  10. \newdimen\ts
  11. \newbox\tbox
  12.  
  13. % 
  14. \def\tgrind{\@ifnextchar[{\@tgrind}{\@tgrind[t]}}
  15. \def\@tgrind[#1]{%
  16. \ifhmode\par\fi
  17. \if #1n\newcount\linecount\newcount\linenext
  18. \def\L##1{\vbox{\hbox to\hsize{\CF\strut\global\advance\linecount by1
  19. ##1\hss\linebox}}}
  20. \linecount=0\linenext=9
  21. \def\linebox{\ifnum\linecount>\linenext\global\advance\linenext by10
  22. \hbox{\tiny\the\linecount}\fi}\else
  23. \def\L##1{\vbox{\hbox{\CF\strut ##1}}}\fi
  24. % Stuff we ignore.
  25. \let\Head=\@gobble
  26. \def\File##1,##2,##3{}
  27. \let\Proc=\@gobble
  28. \let\ProcCont=\@gobble
  29. %
  30. % Each formfeed in the input is replaced by a "\NewPage" macro.  If
  31. % you really want a page break here, define this as "\vfill\eject".
  32. \def\NewPage{\filbreak\bigskip}
  33. %
  34. \def\LB{\CF\hbox}
  35. \setbox\linesofar=\null
  36. \everyhbox={\box\linesofar}
  37. \def\Tab##1{\setbox\tbox=\lastbox\TBwid=1\wd\tbox\advance\TBwid by 1\ts
  38. \ifdim\TBwid>##1\ts
  39. \setbox\linesofar=\hbox{\box\tbox\Space}\else
  40. \setbox\linesofar=\hbox to ##1\ts{\box\tbox\hfil}\fi\LB}
  41. %
  42. % A normal space is too thin for code listings.  We make spaces & tabs
  43. % be in "\ts" units (which are the width of a "0" in the current font).
  44. \setbox\tbox=\hbox{0} \ts=1\wd\tbox \setbox\tbox=\hbox{\hskip 1\ts}
  45. \def\Space{\hskip 1\ts\relax}
  46. %
  47. % Font changing stuff for keywords, comments & strings.  We put keywords
  48. % in boldface, comments in text-italic & strings in typewriter.  Since
  49. % we're usually changing the font inside of a \LB macro, we remember the
  50. % current font in \CF & stick a \CF at the start of each new box.
  51. % Also, the characters " and ' behave differently in comments than in
  52. % code, and others behave differently in strings than in code.
  53. \let\CF=\rm
  54. \def\K##1{{\bf ##1}}    % Keyword
  55. \def\C{\it\global\let\CF=\it\global\commenttrue\relax}    % Comment Start
  56. \def\CE{\rm\global\let\CF=\rm\global\commentfalse\relax}% Comment End
  57. \def\S{\tt\global\let\CF=\tt\global\stringtrue\relax}    % String Start
  58. \def\SE{\rm\global\let\CF=\rm\global\stringfalse\relax}    % String End
  59. %
  60. % Special characters.
  61. \def\{{\ifmmode\lbrace\else\ifstring{\char'173}\else$\lbrace$\fi\fi}
  62. \def\}{\ifmmode\rbrace\else\ifstring{\char'175}\else$\rbrace$\fi\fi}
  63. \def\!{\ifmmode\backslash\else\ifstring{\char'134}\else$\backslash$\fi\fi}
  64. \def\|{\ifmmode|\else\ifstring{\char'174}\else$|$\fi\fi}
  65. \def\<{\ifmmode<\else\ifstring<\else$<$\fi\fi}
  66. \def\>{\ifmmode>\else\ifstring>\else$>$\fi\fi}
  67. \def\/{\ifmmode/\else\ifstring/\else$/$\fi\fi}
  68. \def\*{\ifmmode*\else\ifstring*\else$*$\fi\fi}
  69. \def\-{\ifmmode-\else\ifstring-\else$-$\fi\fi}
  70. \def\_{\ifstring{\char'137}\else\underline{\Space}\fi}
  71. \def\&{{\char'046}}
  72. \def\#{{\char'043}}
  73. \def\%{{\char'045}}
  74. \def\~{{\char'176}}
  75. \def\"{\ifcomment''\else{\tt\char'042}\fi}
  76. \def\'{\ifcomment'\else{\tt\char'047}\fi}
  77. \def\^{{\char'136}}
  78. \def\${{\rm\char'044}}
  79. \mathsurround 0pt
  80. \@tobeyspaces\if #1c\let\etgrind@=\etgrind@c\[\vbox\bgroup
  81. \else \if #1b\let\etgrind@=\etgrind@b \vbox\bgroup
  82. \else\let\etgrind@=\relax\fi\fi
  83. }
  84. \let\etgrind@=\relax
  85. \def\etgrind@c{\egroup\]}
  86. \def\etgrind@b{\egroup}
  87. \def\endtgrind{\etgrind@}
  88. {\catcode`\ =\active\gdef\@tobeyspaces{\catcode`\ \active\let \Space}}
  89.